home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ WinNT Start Menu 3.xpl < prev    next >
Text File  |  2002-01-01  |  4KB  |  125 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="9"
  3. "COUNT"="1"
  4. "UIPATH"="Appearance\Start menu\Windows NT"
  5. "NAME"="Start Menu Options"
  6. "VERSION"="4.00"
  7. "LANGUAGE"="VBScript"
  8. "OSVERSION"="01"
  9. "TEXT 1"="dⁿdel dⁿ"
  10. "DESCRIPTION 1"="Common Groups: Normally the contents of the Start Menu vary from user to user. With this option enabled, you will also be able to see 'Common groups' which all users of a particular computer can see."
  11. "DESCRIPTION 2"="User-created Folders: If this is enabled, extra folders (like the Cascading Control Panel) can appear above the Program entry. When disabled, these folders will be hidden."
  12. "AUTHOR"="Xteq Systems"
  13. "CONTACTURL"="http://www.xteq.com"
  14. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  15. "COMMENT 1"="'Multiple Columns' setting from Tom Simpson [thomas@mail.xenafan.com] - thanks a lot!"
  16. "COMMENT 2"="Thanks to Ken [k-o@cyberdude.dk] for the "no drag&drop" notice."
  17. "COMMENT 3"="Thanks to Dutler, Dennis R [dennis.dutler@eds.com] for the "XP screw up" notice"
  18.  
  19.  
  20.  
  21.       sV_CommonGroups="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoCommonGroups"
  22.    sV_StartMenuScroll="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\StartMenuScrollPrograms" 
  23.    sV_ProgramsContext="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoChangeStartMenu"
  24.         sV_AdminTools="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\StartMenuAdminTools"
  25. sV_StartButtonContext="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoTrayContextMenu"  
  26.         sV_SubFolders="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoStartMenuSubFolders" 
  27.       sV_IntelliMenus="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\IntelliMenus" 
  28.  
  29. SUB Plugin_Initialize
  30.  'NT/2000 (XP?)
  31.  Call SetUIElement(1,"Show Common Groups in Start->Programs")
  32.  Call ReadIt(1,sV_CommonGroups)
  33.  
  34.  'NT/2000/ME/XP
  35.  Call SetUIElement(2,"Show user-created folders at top of Start Menu")
  36.  Call ReadIt(2,sV_SubFolders)
  37.  
  38. END SUB
  39.  
  40. SUB Plugin_CheckData(ElementIndex)
  41. END SUB
  42.  
  43. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  44.  Call WriteIt(1,sV_CommonGroups)
  45.  
  46.  Call WriteIt(2,sV_SubFolders)
  47.  
  48.  
  49.  Call IndicateSettingChange()
  50. END SUB
  51.  
  52. SUB Plugin_Terminate
  53. END SUB
  54.  
  55.  
  56.  
  57.  
  58.  
  59. Sub ReadIt(ITM,PATH1)
  60.  if RegValueExists(PATH1)=false then 'setting available?
  61.     'no setting -> item visible
  62.     Call SetUIElementEx(ITM,true)
  63.  else
  64.     i=RegReadValue(PATH1)
  65.     if i=0 then 
  66.        Call SetUIElementEx(ITM,true)
  67.     end if
  68.  end if
  69. End Sub
  70.  
  71. Sub ReadIt_2(ITM,PATH1)
  72.  if RegValueExists(PATH1)=false then 'setting available?
  73.     'no setting -> item not visible
  74.     Call SetUIElementEx(ITM,false)
  75.  else
  76.     i=RegReadValue(PATH1)
  77.     if i=1 then 
  78.        Call SetUIElementEx(ITM,true)  
  79.     end if
  80.  end if
  81. End Sub
  82.  
  83. Sub ReadIt_3(ITM,PATH1)
  84.  if RegValueExists(PATH1)=false then 'setting available?
  85.     'no setting -> item is active
  86.     Call SetUIElementEx(ITM,true)
  87.  else
  88.     s=RegReadValue(PATH1)
  89.     if LCase(s)="yes" then 
  90.        Call SetUIElementEx(ITM,true)  
  91.     end if
  92.  end if
  93. End Sub
  94.  
  95. Sub WriteIt(ITM,PATH1)
  96.  b=GetUIElementEx(ITM)
  97.  if b=true then
  98.  
  99.     s=RegReadValue(PATH1)
  100.     if IsEmpty(s)=false then
  101.        Call RegDeleteValue(PATH1)
  102.     end if
  103.  
  104.  else
  105.     Call RegWriteValue(PATH1,1,2)
  106.  end if
  107. End Sub
  108.  
  109. Sub WriteIt_2(ITM,PATH1)
  110.  b=GetUIElementEx(ITM)
  111.  if b=true then
  112.     Call RegWriteValue(PATH1,1,2)
  113.  else
  114.     Call RegWriteValue(PATH1,0,2)
  115.  end if
  116. end Sub
  117.  
  118. Sub WriteIt_3(ITM,PATH1)
  119.  b=GetUIElementEx(ITM)
  120.  if b=true then
  121.     Call RegWriteValue(PATH1,"YES",1)
  122.  else
  123.     Call RegWriteValue(PATH1,"NO",1)
  124.  end if
  125. End Sub